diff --git a/lang/gforth/Makefile b/lang/gforth/Makefile
index 25d07299641..379c86ddfa7 100644
--- a/lang/gforth/Makefile
+++ b/lang/gforth/Makefile
@@ -1,11 +1,11 @@
-# $OpenBSD: Makefile,v 1.3 2009/04/01 17:17:37 jasper Exp $
+# $OpenBSD: Makefile,v 1.4 2009/11/17 01:04:43 kurt Exp $
 
 ONLY_FOR_ARCHS =	amd64 i386 powerpc sparc sparc64
 
 COMMENT =		ANS Standard Forth interpreter and compiler
 
 DISTNAME =		gforth-0.6.2
-PKGNAME =		${DISTNAME}p0
+PKGNAME =		${DISTNAME}p1
 CATEGORIES =		lang
 
 HOMEPAGE =		http://www.jwdt.com/~paysan/gforth.html
diff --git a/lang/gforth/patches/patch-engine_engine_c b/lang/gforth/patches/patch-engine_engine_c
new file mode 100644
index 00000000000..130849cd008
--- /dev/null
+++ b/lang/gforth/patches/patch-engine_engine_c
@@ -0,0 +1,14 @@
+$OpenBSD: patch-engine_engine_c,v 1.1 2009/11/17 01:04:43 kurt Exp $
+--- engine/engine.c.orig	Fri Nov 13 17:29:14 2009
++++ engine/engine.c	Fri Nov 13 17:29:33 2009
+@@ -304,8 +304,8 @@ Label *engine(Xt *ip0, Cell *sp0, Cell *rp0, Float *fp
+     Cell code_offset = offset_image? CODE_OFFSET : 0;
+     Cell xt_offset = offset_image? XT_OFFSET : 0;
+ 
+-    symbols = (Label *)(malloc(MAX_SYMBOLS*sizeof(Cell)+CODE_OFFSET)+code_offset);
+-    xts = (Label *)(malloc(MAX_SYMBOLS*sizeof(Cell)+XT_OFFSET)+xt_offset);
++    symbols = (Label *)(calloc(1, MAX_SYMBOLS*sizeof(Cell)+CODE_OFFSET)+code_offset);
++    xts = (Label *)(calloc(1, MAX_SYMBOLS*sizeof(Cell)+XT_OFFSET)+xt_offset);
+     for (i=0; i<DOESJUMP+1; i++)
+       xts[i] = symbols[i] = (Label)routines[i];
+     for (; routines[i]!=0; i++) {