fix bug in track-memory.lisp