--- a/LicenceBox.st	Mon Sep 15 22:04:25 1997 +0200
+++ b/LicenceBox.st	Mon Sep 15 22:45:47 1997 +0200
@@ -160,23 +160,23 @@
 licenceFile
     "get filename of licence file"
 
-    |fn|
+    |fn sysFile|
 
     fileName isNil ifTrue:[
 	fileName := fn := resources at:'LICENCEFILE' default:nil.
 	fileName isNil ifTrue:[
-	     fileName := fn := 'doc/online/english/LICENCE.STX.html'.
+	     fileName := fn := 'doc/online/english/LICENCE_STX.html'.
 	].
 	fileName asFilename exists ifFalse:[
 	    fileName := Smalltalk getSystemFileName:fileName.
 	    fileName isNil ifTrue:[
 		fileName := '../../' , fn.
 		fileName asFilename exists ifFalse:[
-		    fileName := Smalltalk getSystemFileName:'doc/online/german/LICENCE.STX.html'.
+		    fileName := Smalltalk getSystemFileName:'doc/online/german/LICENCE_STX.html'.
 		    fileName isNil ifTrue:[
-			fileName := '../../doc/online/german/LICENCE.STX.html'.
+			fileName := '../../doc/online/german/LICENCE_STX.html'.
 		    ]
-		]
+		].
 	    ].
 	].
 	fileName asFilename exists ifFalse:[
@@ -188,7 +188,6 @@
     "
      LicenceBox new licenceFile
     "
-
 !
 
 licenceText
@@ -228,6 +227,6 @@
 !LicenceBox  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.7 1996-09-24 11:31:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LicenceBox.st,v 1.8 1997-09-15 20:45:47 cg Exp $'
 ! !
 LicenceBox initialize!