diff --git a/8080/CPM/src/vf-core.fth b/8080/CPM/src/vf-core.fth
index ba54d5d..0f4a6e6 100644
--- a/8080/CPM/src/vf-core.fth
+++ b/8080/CPM/src/vf-core.fth
@@ -1054,7 +1054,9 @@ Code "lit   RP lhld   M E mov   H inx   M D mov   H dcx
 : (        ascii ) parse 2drop ; immediate
 : .(       ascii ) parse type ; immediate
 
-: \        >in @ negate  c/l mod  >in +! ; immediate
+: \        blk @ IF >in @ negate  c/l mod  >in +!
+                 ELSE #tib @ >in ! THEN ; immediate
+
 : \\       b/blk >in ! ; immediate
 : \needs   name find nip 0=exit [compile] \ ;