diff --git a/6502/C64/src/x16tmpheap.fth b/6502/C64/src/x16tmpheap.fth
index c677e90..e6f7c7c 100644
--- a/6502/C64/src/x16tmpheap.fth
+++ b/6502/C64/src/x16tmpheap.fth
@@ -19,9 +19,6 @@ User ]tmpheap
 \ X16 KERNAL. The banked RAM lives from $a000 to $bfff.
  1 $9f61 c!  $a000 tmpheap[ !  $c000 dup ]tmpheap ! tmpheap> !
 
-: mk-tmp-heap  ( size -- )
-    heap dup ]tmpheap ! tmpheap> !  hallot  heap tmpheap[ ! ;
-
 : tmp-hallot  ( size -- addr )
     tmpheap> @ swap -
     dup tmpheap[ @ u< abort" tmp heap overflow"