--- a/smalltalk.rc	Thu Sep 24 13:10:12 1998 +0200
+++ b/smalltalk.rc	Fri Sep 25 16:06:36 1998 +0200
@@ -273,7 +273,7 @@
     LicenceBox licenceRejectSignal handle:[:ex|
 	Smalltalk exit
     ] do:[
-	LicenceBox open.
+	(LicenceBox open) ifFalse:[Smalltalk exit].
 	Smalltalk at:#LicenceBox put:nil.
     ].
 ].