--- a/UIHelpTool.st	Tue Jul 09 22:07:04 2013 +0200
+++ b/UIHelpTool.st	Sat Jul 13 22:25:22 2013 +0200
@@ -536,13 +536,12 @@
     |key|
 
     self withoutModifyDo:[
-	aKey size ~~ 0 ifTrue:[
-	    key := aKey withoutSeparators.
-	    key isEmpty ifTrue:[ key := nil ]
-	] ifFalse:[
-	    key := nil
-	].
-	editModel value:key.
+        aKey size ~~ 0 ifTrue:[
+            key := aKey withoutSeparators asNilIfEmpty.
+        ] ifFalse:[
+            key := nil
+        ].
+        editModel value:key.
     ].
     self cancel.
 !