--- a/ClassCategoryReader.st	Tue Sep 29 12:55:37 1998 +0200
+++ b/ClassCategoryReader.st	Tue Sep 29 18:57:58 1998 +0200
@@ -54,9 +54,16 @@
                            (i.e. typically a link in the source directory should be present)
 
         #absReference    - keep a reference to the loaded files absolute pathname
+                           but only if the file ends with .st.
                            (this is ok in multiUser configurations, where all sourcefiles are mounted
                            on a common path; typically automounted systems)
 
+        #forceAbsReference 
+                         - like above, but also do it for files not ending with .st.
+                           Must be used with care - NEVER ever reference sources from the changes
+                           file, because the changesBrowser does not adjust methods sources
+                           when it compresses or removes changes.
+
         #sourceReference - append source to the `st.src' file,
                            and keep a reference to that file.
                            if the image is later moved to another location,
@@ -255,10 +262,12 @@
             "/ ends with '.st'
             "/ this prevents methods from referencing the changes file.
             "/
-            (sourceFile asFilename hasSuffix:'st') ifTrue:[
+            ((SourceMode == #forceAbsReference)
+            or:[sourceFile asFilename hasSuffix:'st']) ifTrue:[
                 canMakeSourceRef := true.
 
-                SourceMode == #absReference ifFalse:[
+                (SourceMode ~~ #absReference
+                and:[SourceMode ~~ #forceAbsReference])  ifFalse:[
                     SourceMode == #sourceReference ifTrue:[
                         sourceFile := 'st.src'.
                     ] ifFalse:[
@@ -411,6 +420,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.40 1998-06-06 00:00:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.41 1998-09-29 16:57:58 cg Exp $'
 ! !
 ClassCategoryReader initialize!