Index: EXT/Optima/CalculPrix/ServiceWeb.cls.xml
===================================================================
diff -u -r32121 -r32124
--- EXT/Optima/CalculPrix/ServiceWeb.cls.xml	(.../ServiceWeb.cls.xml)	(revision 32121)
+++ EXT/Optima/CalculPrix/ServiceWeb.cls.xml	(.../ServiceWeb.cls.xml)	(revision 32124)
@@ -63,13 +63,13 @@
 				Set OptimaException = ##class(TECH.Exceptions.GeneralErrorException).%New(BinaireFoutWaarde_";Ongeldige Kenmerkwaarden")
 			}
 		}
-		ElseIf Exception.%Extends("TECH.Exceptions.GeneralErrorException") {
+		ElseIf Exception.%Extends("OptimaSpecifiekeException") {
+			Set OptimaException = Exception
+		}
+		Else {
 			Set OptimaException = ##class(TECH.Exceptions.GeneralErrorException).%New("-1010;Ongekende bug bij VH")
 			Do OptimaException.VoegToeInnerExceptie(Exception)
 		}
-		Else {
-			Set OptimaException = Exception
-		}
 
 
 		Do ##class(vhLib.Logger).LogExceptie(OptimaException)