--- a/LicenceBox.st	Tue Sep 10 14:43:34 1996 +0200
+++ b/LicenceBox.st	Tue Sep 10 14:49:26 1996 +0200
@@ -7,6 +7,8 @@
 
 !LicenceBox  class methodsFor:'documentation'!
 
+alize!
+
 documentation
 "
     LicenceBox shows a licence text when opened, an returns true,
@@ -132,27 +134,24 @@
 
    |file|
 
-   file := (resources at:'LICENCEFILE') asFilename.
-   file exists ifFalse:[
+   file := resources at:'LICENCEFILE' default:nil.
+self halt.
+   file isNil ifTrue:[
+        file := 'doc/online/german/LICENCE.STX.html'.
+   ].
+   file asFilename exists ifFalse:[
        file := Smalltalk getSystemFileName:'doc/online/german/LICENCE.STX.html'.
        file isNil ifTrue:[
           file := '../../doc/online/german/LICENCE.STX.html'.
        ].
-       file notNil ifTrue:[     
-           file := file asFilename
-       ].
-       (file isNil or:[file exists not]) ifTrue:[
-           ^ 'oops - you are not allowed to remove the LICENSE file !!'
-       ].
-
    ].
-   ^ file readStream contents.
+   file asFilename exists ifFalse:[
+       ^ 'oops - you are not allowed to remove the LICENSE file !!'
+   ].
+   ^ file asFilename readStream contents.
 
     "Created: 6.9.1996 / 12:17:07 / stefan"
-    "Modified: 10.9.1996 / 02:16:28 / cg"
+    "Modified: 10.9.1996 / 14:47:41 / cg"
 ! !
 
-!LicenceBox  class methodsFor:'documentation'!
-
-alize! !
 LicenceBox initialize!