--- a/SnapShotImageMemory.st	Wed Oct 18 15:05:41 2006 +0200
+++ b/SnapShotImageMemory.st	Thu Oct 19 11:34:20 2006 +0200
@@ -1488,6 +1488,12 @@
     ^ self at:(Class instVarOffsetOf:'category')
 !
 
+classBaseFilename
+    ^ self classFilename asFilename baseName
+
+    "Created: / 19-10-2006 / 01:10:17 / cg"
+!
+
 classFilename
     |classFilenameRef classFilename|