anchor.diff:              (loop for (i k) in dependent-vars
                     do (with-dimensionless-math (numerica-model-base-units nm)
                          (format file "~%~6Tk(~A) := ~S ;" i k.value)))))
  -    (format file "~%~2TEND~%")))
  +    (format file "~%~2TEND~%")
  +    ;; now, we've determine the actual # kvars ...
  +    ;; go back and scribble at klen-pos
  +    (scribble file (numerica-model-kvar-count nm) (numerica-model-klen-pos nm))
  +   ))
     
   
   (defun escape-numerica-formatting-chars (str)
  
positive.code:             (write-numerica-code nm stream)))
          (setf *numerica-model* nm)))))
  
  
  ;;;; (defun refresh-parameters (&optional (model *numerica-model*))
  ;;;;   "Rewrites the parameters/initial conditions of a model (default is *numerica-model*) to the model's initfile."  
  ;;;;   (let* ((name (numerica-model-init-script-name model))
  ;;;;          (path (numerica-model-path model))
  ;;;;          (init-path (numerica-file-path name path)))
  ;;;;     (with-open-file (file init-path :direction :output)
  ;;;;       (write-init-script file model))
  ;;;;     (format t "New parameters file (~A.~A) written to ~A."
  ;;;;             (pathname-name init-path)
  ;;;;             (pathname-type init-path)
  ;;;;             path)))
  
  (defun make-safe-file-name (o)
    (substitute-if-not #\_ #'alphanumericp
  
negative.code:   "returns the name of the ...."
    (format nil "~S_k" (carefully-get-filename stream)))
  
  
  ;;;
  ;;; functions for computing default base units
  ;;;
  