--- a/LicenceBox.st	Mon Sep 09 19:06:47 1996 +0200
+++ b/LicenceBox.st	Tue Sep 10 02:17:07 1996 +0200
@@ -1,5 +1,3 @@
-'From Smalltalk/X, Version:2.10.9 on 9-sep-1996 at 18:00:22'                    !
-
 DialogBox subclass:#LicenceBox
 	instanceVariableNames:'accepted destroySemaphore'
 	classVariableNames:'LicenceRejectSignal'
@@ -132,14 +130,29 @@
 licenceText
    "get licence text"
 
-   ^ (resources at:'LICENCEFILE') asFilename readStream contents.
+   |file|
+
+   file := (resources at:'LICENCEFILE') asFilename.
+   file 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.
 
     "Created: 6.9.1996 / 12:17:07 / stefan"
+    "Modified: 10.9.1996 / 02:16:28 / cg"
 ! !
 
 !LicenceBox  class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.1 1996-09-09 17:06:46 stefan Exp $'
-! !
+alize! !
 LicenceBox initialize!