--- qemu/roms/SLOF/slof/fs/client.fs	2018/04/24 18:59:09	1.1.1.1
+++ qemu/roms/SLOF/slof/fs/client.fs	2018/04/24 19:26:03	1.1.1.2
@@ -102,10 +102,14 @@ ALSO client-voc DEFINITIONS
 : yield  sc-yield THROW ;
 
 : test ( zstr -- missing? )
-  \ XXX: Should only look in client-voc...
-  zcount 
-  ALSO client-voc $find PREVIOUS IF nip FALSE ELSE nip nip TRUE THEN 
-  ;
+   \ XXX: Should only look in client-voc...
+   zcount 
+   ALSO client-voc $find PREVIOUS IF
+      drop FALSE
+   ELSE
+      2drop TRUE
+   THEN 
+;
 
 : finddevice ( zstr -- phandle )
   zcount find-node dup 0= IF drop -1 THEN ;