@@ -306,7 +306,7 @@ sourceTypes (LAllocate) = [addressType]
306306sourceTypes (LAppendBuffer) =
307307 [bufferType, addressType, addressType, addressType, addressType, bufferType]
308308sourceTypes (LSystemInfo) = [integerType]
309−sourceTypes (LAppend nt _) = [bufferType, intTyToJType nt, addressType]
309+sourceTypes (LAppend nt _) = [bufferType, addressType, addressType, intTyToJType nt]
310310sourceTypes (LPeek _ _) = [bufferType, addressType]
311311sourceTypes (LFork) = [objectType]
312312sourceTypes (LPar) = [objectType]