branch | cvs_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