--- a/Bookmark.st	Thu Jul 07 16:15:04 2011 +0200
+++ b/Bookmark.st	Thu Jul 07 16:15:17 2011 +0200
@@ -431,9 +431,17 @@
     "Modified: / 23-05-2011 / 13:36:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-className:aString
+className: aString
+
     className := aString.
 
+    (className endsWith: ' class') ifTrue:[
+        className := className copyTo: (className size - 7)"/ ' class' size - 1
+    ].
+
+    className := className asSymbol.
+
+    "Modified: / 30-06-2011 / 19:13:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Bookmark::Class methodsFor:'accessing defaults'!
@@ -469,10 +477,10 @@
 
 switchToBookmarkIn: application
 
-    application switchToClass: (Smalltalk at: className) selector: nil updateHistory: false
+    application switchToClass: (Smalltalk at: className asSymbol) selector: nil updateHistory: false
 
     "Created: / 05-05-2011 / 23:49:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 23-05-2011 / 13:36:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-06-2011 / 19:12:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Bookmark::Class methodsFor:'private'!
@@ -480,11 +488,11 @@
 initializeIcon
 
     | cls |
-    cls :=  Smalltalk at: className.
+    cls :=  Smalltalk at: className asSymbol.
     cls ifNotNil:[icon := SystemBrowser iconForClass: cls].
 
     "Created: / 05-05-2011 / 23:01:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 23-05-2011 / 22:17:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-06-2011 / 19:10:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 initializeLabel
@@ -884,7 +892,7 @@
 !Bookmark class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Bookmark.st,v 1.3 2011-07-03 21:48:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Bookmark.st,v 1.4 2011-07-07 14:15:17 vrany Exp $'
 !
 
 version_SVN