diff --git a/src/samplesrc/cmdsys.4th b/src/samplesrc/cmdsys.4th
index 7c368ef..f6a9abf 100644
--- a/src/samplesrc/cmdsys.4th
+++ b/src/samplesrc/cmdsys.4th
@@ -1,6 +1,12 @@
 : IFACE 2 * + @ ;
 
-LOOKUP CMDSYS 3 IFACE PLASMA EXECMOD
-LOOKUP CMDSYS 3 IFACE PLASMA CMDLINE
+LOOKUP CMDSYS 3 IFACE PLASMA   EXECMOD
+LOOKUP CMDSYS 2 IFACE CONSTANT CMDLINE
 LOOKUP STRCPY PLASMA STRCPY
 LOOKUP STRCAT PLASMA STRCAT
+
+: EDIT"
+    CMDLINE " ED "  STRCPY
+    CMDLINE 34 WORD STRCAT
+    " ED" EXECMOD
+;