--- a/AbstractSourceCodeManager.st	Mon Apr 14 20:57:49 1997 +0200
+++ b/AbstractSourceCodeManager.st	Fri Apr 18 11:14:12 1997 +0200
@@ -580,11 +580,13 @@
                     (directoryFromBin ~= directoryFromRev 
                     or:[moduleFromBin ~= moduleFromRev]) ifTrue:[
                         (directoryFromRev isNil or:[moduleFromRev isNil]) ifTrue:[
-                            ('SourceCodeManager [info]: using binary info: ' 
-                                , moduleFromBin , '/' , directoryFromBin
-                            ) infoPrintCR.
-                            newInfo at:#directory put:directoryFromBin.
-                            newInfo at:#module put:moduleFromBin.
+                            directoryFromBin ~= 'no package' ifTrue:[
+                                ('SourceCodeManager [info]: using binary info: ' 
+                                    , moduleFromBin , '/' , directoryFromBin
+                                ) infoPrintCR.
+                                newInfo at:#directory put:directoryFromBin.
+                                newInfo at:#module put:moduleFromBin.
+                            ]
                         ] ifFalse:[
                             directoryFromBin ~= 'no package' ifTrue:[
                                 ('SourceCodeManager [warning]: conflicting source infos (binary: ' 
@@ -593,7 +595,7 @@
                                     , moduleFromRev  , '/' , directoryFromRev
                                     , ')') infoPrintCR.
                             ]
-                        ].
+                        ]
                     ]
                 ]
             ].
@@ -653,7 +655,7 @@
     ^ newInfo
 
     "Created: 25.11.1995 / 12:40:19 / cg"
-    "Modified: 12.4.1997 / 00:08:19 / cg"
+    "Modified: 18.4.1997 / 11:12:04 / cg"
 ! !
 
 !AbstractSourceCodeManager class methodsFor:'source code access'!
@@ -1025,7 +1027,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.78 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.79 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1361,6 +1363,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.78 1997-04-14 18:57:49 cg Exp $ [ce]'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.79 1997-04-18 09:14:12 cg Exp $ [ce]'
 ! !
 AbstractSourceCodeManager initialize!