--- a/UnaryNd.st	Mon Jul 12 17:13:20 1999 +0200
+++ b/UnaryNd.st	Mon Jul 12 17:13:44 1999 +0200
@@ -176,11 +176,15 @@
      (selector = 'true') or:[
      (selector = 'false') or:[
      (Smalltalk includesKey:selector)]]]]]) ifTrue:[
-	^ 'funny selector; possible missing ''.'' or keyword'
+        ^ 'funny selector; possible missing ''.'' or keyword'
     ].
 
-    "more to come ..."
-    ^ nil
+    "
+     more to come 
+     ...
+    "
+
+    ^ super plausibilityCheck
 ! !
 
 !UnaryNode methodsFor:'code generation'!
@@ -286,5 +290,5 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/UnaryNd.st,v 1.28 1999-06-24 14:17:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/UnaryNd.st,v 1.29 1999-07-12 15:13:44 cg Exp $'
 ! !

--- a/UnaryNode.st	Mon Jul 12 17:13:20 1999 +0200
+++ b/UnaryNode.st	Mon Jul 12 17:13:44 1999 +0200
@@ -176,11 +176,15 @@
      (selector = 'true') or:[
      (selector = 'false') or:[
      (Smalltalk includesKey:selector)]]]]]) ifTrue:[
-	^ 'funny selector; possible missing ''.'' or keyword'
+        ^ 'funny selector; possible missing ''.'' or keyword'
     ].
 
-    "more to come ..."
-    ^ nil
+    "
+     more to come 
+     ...
+    "
+
+    ^ super plausibilityCheck
 ! !
 
 !UnaryNode methodsFor:'code generation'!
@@ -286,5 +290,5 @@
 !UnaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.28 1999-06-24 14:17:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.29 1999-07-12 15:13:44 cg Exp $'
 ! !