--- a/FileBrowser.st	Thu Feb 11 13:45:36 1999 +0100
+++ b/FileBrowser.st	Thu Feb 11 14:24:42 1999 +0100
@@ -3212,7 +3212,11 @@
     "set up the contents view - can be redefined in subclasses for
      different view types (SoundFileBrowser/ImageBrowsers etc.)"
 
-    ^ HVScrollableView for:CodeView miniScrollerH:true miniScrollerV:false in:frame.
+    ^ HVScrollableView 
+        for:CodeView 
+        miniScrollerH:true 
+        miniScrollerV:false 
+        in:frame.
 !
 
 postRealize
@@ -5157,8 +5161,10 @@
 
     commentStrings := self fileCommentStrings.
     commentStrings notNil ifTrue:[
-	subView
-	    commentStrings:#('#' (nil nil)).
+        Object messageNotUnderstoodSignal catch:[
+            subView
+                commentStrings:#('#' (nil nil)).
+        ]
     ].
 
     "Modified: 7.1.1997 / 20:30:54 / cg"
@@ -6259,5 +6265,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.288 1999-02-05 00:22:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.289 1999-02-11 13:24:42 cg Exp $'
 ! !