--- a/Smalltalk.st	Tue Sep 30 10:05:06 2008 +0200
+++ b/Smalltalk.st	Tue Sep 30 19:50:05 2008 +0200
@@ -977,6 +977,7 @@
     "Created: 20.6.1997 / 16:58:28 / cg"
 ! !
 
+
 !Smalltalk class methodsFor:'browsing'!
 
 browseAllCallsOn:aSelectorSymbol
@@ -6014,16 +6015,18 @@
 
     |prjDir rsrcDir|
 
-    prjDir := self projectDirectoryForPackage:aPackage.
-
-    (prjDir notNil
-    and:[(prjDir := prjDir asFilename) exists
-    and:[(rsrcDir := prjDir construct:'resources') exists]]) ifTrue:[
-	^ rsrcDir
-    ].
-    rsrcDir := self getSystemFileName:('resources/' , (aPackage copyReplaceAll:$: with:$/)).
-    rsrcDir notNil ifTrue:[
-	^ rsrcDir asFilename
+    aPackage notNil ifTrue:[
+        prjDir := self projectDirectoryForPackage:aPackage.
+
+        (prjDir notNil
+        and:[(prjDir := prjDir asFilename) exists
+        and:[(rsrcDir := prjDir construct:'resources') exists]]) ifTrue:[
+            ^ rsrcDir
+        ].
+        rsrcDir := self getSystemFileName:('resources/' , (aPackage copyReplaceAll:$: with:$/)).
+        rsrcDir notNil ifTrue:[
+            ^ rsrcDir asFilename
+        ].
     ].
     ^ nil
 
@@ -7113,5 +7116,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.854 2008-09-25 16:20:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.855 2008-09-30 17:50:05 cg Exp $'
 ! !