diff --git a/tcl/startup/autofill.tcl b/tcl/startup/autofill.tcl
index c349540..ebb203a 100644
--- a/tcl/startup/autofill.tcl
+++ b/tcl/startup/autofill.tcl
@@ -1,4 +1,7 @@
 proc makeHeFill {levcmd} {
+  # this seems obsolete
+  # use makeCCU4 ... he
+  # or makeCCU4 ... he_ilm
   if {$levcmd eq "ccu"} {
     makenv lev he_ccu ccu
     GraphAdd lev % HeLevel brown