From 1ef49b1a00f6a93e37d44d648b499f437169f166 Mon Sep 17 00:00:00 2001
From: sheeple <sheeple@oberon.local>
Date: Tue, 2 Sep 2008 17:02:15 -0500
Subject: [PATCH] fix intrinsic

---
 basis/cpu/ppc/intrinsics/intrinsics.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/cpu/ppc/intrinsics/intrinsics.factor b/basis/cpu/ppc/intrinsics/intrinsics.factor
index bf4711f998..191baf1e0a 100755
--- a/basis/cpu/ppc/intrinsics/intrinsics.factor
+++ b/basis/cpu/ppc/intrinsics/intrinsics.factor
@@ -539,7 +539,7 @@ IN: cpu.ppc.intrinsics
             { unboxed-c-ptr "alien" c-ptr }
             { f "offset" fixnum }
         } }
-        { +scratch+ { "scratch" } }
+        { +scratch+ { { f "scratch" } } }
         { +clobber+ { "value" "offset" } }
     } ;