--- a/SmalltalkAppletStub.st	Wed Aug 06 00:52:47 1997 +0000
+++ b/SmalltalkAppletStub.st	Thu Aug 07 13:19:56 1997 +0000
@@ -93,14 +93,18 @@
 !
 
 getParameter:arg
+    (parameter includesKey:arg) ifFalse:[
+        self halt:'no parameter for: ' , arg displayString.
+        ^ nil
+    ].
     ^ parameter at:arg ifAbsent:nil
 
     "Created: 1.8.1997 / 15:56:51 / cg"
-    "Modified: 1.8.1997 / 15:58:58 / cg"
+    "Modified: 7.8.1997 / 14:32:49 / cg"
 ! !
 
 !SmalltalkAppletStub class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/SmalltalkAppletStub.st,v 1.1 1997/08/01 19:55:09 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/SmalltalkAppletStub.st,v 1.2 1997/08/07 13:19:30 cg Exp $'
 ! !