diff --git a/src/cfs/cload.2 b/src/cfs/cload.2
index e905b737..4d830d1b 100644
--- a/src/cfs/cload.2
+++ b/src/cfs/cload.2
@@ -24,6 +24,8 @@
 ; "only use mark-sweep GC"
 ; <GC 8192 <> <CHTYPE <MIN> FIX>>
 
+<SETG NULL!- <INSERT <STRING <ASCII 127>> <ROOT>>>
+
 <VFLOAD "prim">
 <VFLOAD "defs">
 <VFLOAD "makstr">
diff --git a/src/cfs/ctell.2 b/src/cfs/ctell.2
index 6aa88825..cb8d43dd 100644
--- a/src/cfs/ctell.2
+++ b/src/cfs/ctell.2
@@ -134,5 +134,3 @@ are never both set (no lowercase or a few other symbols)"
          >
 >
 
-<AND <NOT <GASSIGNED? NULL>> <SETG NULL <INSERT <ATOM ""> <ROOT>>>> ;",NULL is an atom with a name containing a single rubout in real MDL.  Here it's a totally empty atom (which probably isn't legal in real mdl) "
-""