Smalltalk.st
changeset 146 7c684e19ddc7
parent 122 1680ab5285c4
child 159 514c749165c3
--- a/Smalltalk.st	Wed Aug 24 01:11:14 1994 +0200
+++ b/Smalltalk.st	Wed Aug 24 01:11:28 1994 +0200
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
              All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.20 1994-08-22 12:14:23 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.21 1994-08-23 23:11:28 claus Exp $
 '!
 
 "
@@ -55,7 +55,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.20 1994-08-22 12:14:23 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.21 1994-08-23 23:11:28 claus Exp $
 "
 !
 
@@ -151,7 +151,7 @@
      Smalltalk versionString
     "
 "
-$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.20 1994-08-22 12:14:23 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.21 1994-08-23 23:11:28 claus Exp $
 "
 !
 
@@ -1312,6 +1312,9 @@
 
     CachedAbbreviations := Dictionary new.
     aStream := self systemFileStreamFor:'abbrev.stc'.
+    aStream isNil ifTrue:[
+        aStream := self systemFileStreamFor:'include/abbrev.stc'.
+    ].
     aStream notNil ifTrue:[
         [aStream atEnd] whileFalse:[
             line := aStream nextLine.