diff --git a/src/cfs/cload.2 b/src/cfs/cload.2
index db44e08d..1281a018 100644
--- a/src/cfs/cload.2
+++ b/src/cfs/cload.2
@@ -1,4 +1,29 @@
-<DEFINE VFLOAD (X) <FLOAD .X> <PRINTSTRING <STRING .X " loaded">> <TERPRI>>
+<SETG BS-DATA <IUVECTOR 27 '0>>
+<DEFINE XTRACE (X)
+	<PRINTSTRING .X>
+	<PRINC " - ">
+	<PRIN1 <BLOAT-STAT ,BS-DATA>>
+;	<TERPRI>
+;	<PRINC <GC>>
+;	<PRINC " reclaimed">
+	<TERPRI>>
+
+<DEFINE VFLOAD (X)
+	<XTRACE <STRING "Loading " .X>>
+	<FLOAD .X>
+;	<PRINC <GC 0 T>>
+;	<PRINC " reclaimed">
+;	<TERPRI>
+	>
+
+<GC-MON TRUE>
+
+; "only use compacting GC"
+; <GC 8192 <> 0>
+
+; "only use mark-sweep GC"
+; <GC 8192 <> <CHTYPE <MIN> FIX>>
+
 <VFLOAD "prim">
 <VFLOAD "defs">
 <VFLOAD "makstr">