--- a/ActiveHelpView.st	Tue Apr 19 15:27:44 2016 +0200
+++ b/ActiveHelpView.st	Tue Apr 19 15:28:46 2016 +0200
@@ -102,15 +102,15 @@
         textView extent:(textView extentOfContents + 20 min:(Display extent * 2 // 3)).
         textView contents:someText.
         ^ helpView withView:textView 
-    ] ifFalse:[
-        textShown := someText.
-        (textShown isString and:[textShown endsWith:Character cr]) ifTrue:[
-            textShown := textShown copyButLast.
-        ].    
-        textView := Label onDevice:aDevice.
-        textView font:(helpView font onDevice:aDevice). 
-        ^ (helpView withView:textView) contents:textShown
     ].
+    
+    textShown := someText.
+    (textShown isString) ifTrue:[
+        textShown := textShown withoutTrailingSeparators.
+    ].    
+    textView := Label onDevice:aDevice.
+    textView font:(helpView font onDevice:aDevice). 
+    ^ (helpView withView:textView) contents:textShown
 
     "
      |v|