--- a/BrowserView.st	Fri Oct 08 11:04:41 1999 +0200
+++ b/BrowserView.st	Fri Oct 08 12:41:09 1999 +0200
@@ -10799,39 +10799,48 @@
             sourceLineNumber := currentMethod sourceLineNumber.
 
             code isNil ifTrue:[
-                code := '"
-    Sorry, but the methods sourceCode is not available.
-
-    If this ST/X is a ' , 'regular distribution' asText allBold ,', please check the setting of
-    your systemPath which contains a collection of pathNames.
-    The system searches those directories for a subdirectory named ''source'', 
-    which itself should contain the classes source file.
-    Also, check if that directory and/or sourceFile grants read access.
-    The sourcePath can be accessed via 
-        Smalltalk systemPath 
-    and
-        Smalltalk systemPath:aCollectionOfPathStrings
-
-    To fix this (in the running system), evaluate:
-        Smalltalk systemPath addFirst:''<<pathOfDirContainingSourceDir>>.''
-        Smalltalk flushPathCaches.
-
-    You may also want to add those statements to the end of your ''private.rc''
-    file - so you will not get this error again and again. 
-
-    Also, check if you have the sourceCodeManagement (CVS) enabled,
-    and (if so) configured correctly.
-
-    If all of the above fail, and you know the path of the source file,
-    you can workaround the problem, by adding a symbolic link to that sourcefile
-    in the ''source'' directory.
-
-
-    If this is ST/X a ' , 'demo-distribution' asText allBold ,', the source for some classes is not
-    published, and this may be normal behavior (unless it happens for all classes).
-    Notice, that it is possible to browse & add new methods - even with missing sources.
-
+                (sourceLineNumber isNil
+                or:[currentMethod sourcePosition isNil
+                or:[currentMethod getSource isNil]]) ifTrue:[
+                    code := '"
+Sorry, but the methods sourceCode is not available.
+
+Probably, the methods sourceCode-info was stripped from the system.
 "'.
+                ] ifFalse:[
+                    code := '"
+Sorry, but the methods sourceCode is not available.
+
+If this ST/X is a ' , 'regular distribution' asText allBold ,', please check the setting of
+your systemPath which contains a collection of pathNames.
+The system searches those directories for a subdirectory named ''source'', 
+which itself should contain the classes source file.
+Also, check if that directory and/or sourceFile grants read access.
+The sourcePath can be accessed via 
+    Smalltalk systemPath 
+and
+    Smalltalk systemPath:aCollectionOfPathStrings
+
+To fix this (in the running system), evaluate:
+    Smalltalk systemPath addFirst:''<<pathOfDirContainingSourceDir>>.''
+    Smalltalk flushPathCaches.
+
+You may also want to add those statements to the end of your ''private.rc''
+file - so you will not get this error again and again. 
+
+Also, check if you have the sourceCodeManagement (CVS) enabled,
+and (if so) configured correctly.
+
+If all of the above fail, and you know the path of the source file,
+you can workaround the problem, by adding a symbolic link to that sourcefile
+in the ''source'' directory.
+
+
+If this is ST/X a ' , 'demo-distribution' asText allBold ,', the source for some classes is not
+published, and this may be normal behavior (unless it happens for all classes).
+Notice, that it is possible to browse & add new methods - even with missing sources.
+"'.
+                ].
                 codeView acceptAction:nil.
             ] ifFalse:[
                 UserPreferences current syntaxColoring ifTrue:[
@@ -10881,6 +10890,7 @@
 
     "Created: / 23.11.1995 / 14:16:43 / cg"
     "Modified: / 17.6.1998 / 12:44:24 / cg"
+
 ! !
 
 !BrowserView methodsFor:'namespace menu'!
@@ -13945,6 +13955,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.562 1999-09-24 17:30:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.563 1999-10-08 10:41:09 cg Exp $'
 ! !
 BrowserView initialize!