JavaVM.st
branchcvs_MAIN
changeset 3667 418ea879b40a
parent 3656 e9cc6bf8a31a
child 3795 b696900fb824
--- a/JavaVM.st	Wed Nov 30 17:46:38 2016 +0100
+++ b/JavaVM.st	Wed Nov 30 17:47:31 2016 +0100
@@ -3683,6 +3683,9 @@
     | exClass  ex |
 
     exClass := self classForName: aJavaExceptionClassName asSlashedJavaClassName definedBy: nil.
+    exClass isNil ifTrue:[
+        self error:'Missing Java Exception Class: ', aJavaExceptionClassName.
+    ].
     ex := exClass newWith_String: someMessage.
     ^ self throwException: ex