--- a/smalltalk.rc	Sat May 30 15:41:30 1998 +0200
+++ b/smalltalk.rc	Thu Jun 04 16:55:54 1998 +0200
@@ -41,8 +41,18 @@
 "/
 
 |path|
+
 (path := OperatingSystem getEnvironment:'STX_SYSTEMPATH') notNil ifTrue:[
     Smalltalk systemPath:(path asCollectionOfSubstringsSeparatedBy:$:)
+] ifFalse:[
+    "/ look for gnu-smalltalk class files along my PATH.
+    "/ if found, remove that directory from the PATH to avoid
+    "/ autoloading wrong classes.
+    (path := Smalltalk getSystemFileName:'initialize.st') notNil ifTrue:[
+	path := path asFilename directoryName.
+        ('smalltalk.rc [info]: found gnu-smalltalk sources in ' , path , '; removed from systemPath.') infoPrintCR.
+	Smalltalk systemPath:(Smalltalk systemPath remove:path; yourself).
+    ]
 ].
 !