--- a/SnapShotImage.st	Thu Aug 22 19:03:11 2002 +0200
+++ b/SnapShotImage.st	Fri Aug 23 10:56:14 2002 +0200
@@ -155,6 +155,10 @@
     ^ nil
 !
 
+hasNamespaces
+    ^ true
+!
+
 keysAndValuesDo:aTwoArgBlock
     globals isNil ifTrue:[
         self fetchGlobals

--- a/SnapShotImageMemory.st	Thu Aug 22 19:03:11 2002 +0200
+++ b/SnapShotImageMemory.st	Fri Aug 23 10:56:14 2002 +0200
@@ -1419,6 +1419,10 @@
         ^ junk
     ].
     self halt.
+!
+
+syntaxHighlighterClass
+    ^ #askClass
 ! !
 
 !SnapShotImageMemory::ImageMethodObject methodsFor:'queries'!