diff --git a/images/apple/PLASMA-2.1-4TH.po b/images/apple/PLASMA-2.1-4TH.po
index ef01ddf..a729575 100644
Binary files a/images/apple/PLASMA-2.1-4TH.po and b/images/apple/PLASMA-2.1-4TH.po differ
diff --git a/src/toolsrc/plforth.pla b/src/toolsrc/plforth.pla
index 67e6897..68c9fbc 100644
--- a/src/toolsrc/plforth.pla
+++ b/src/toolsrc/plforth.pla
@@ -15,7 +15,7 @@ byte  srclevel   = 0
 //
 // Internal buffers
 //
-word                      strbuf, padbuf
+word                      strbuf
 res[SRCREFS * INBUF_SIZE] inbuf
 res[t_except]             exitforth
 //
@@ -1165,7 +1165,7 @@ def _fill_(a,b,c)#0
   memset(a, c | (c << 8), b)
 end
 def _pad_#1
-  return padbuf
+  return heapmark + 512
 end
 def _trailing_(a,b)#2
   while b and ^(a + b - 1) == ' '
@@ -1972,7 +1972,6 @@ _estkl = ^(@syscall + 1) // Hack to fill in parameter stack locations
 _estkh = ^(@syscall + 3)
 fileio:iobufalloc(4) // Allocate a bunch of file buffers
 strbuf = heapalloc(256)
-padbuf = heapalloc(256)
 startheap = heapmark
 coldstart
 //