X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=mate.git;a=blobdiff_plain;f=Mate%2FClassPool.hs;fp=Mate%2FClassPool.hs;h=baf49a3d6eca25a762c5c06952695e747c827f46;hp=0f235c01044eb1dc5a2935c3eb9a6574c73dacc6;hb=3398391fa883278959063506c8051943aba9c4ee;hpb=ecec298c7b0723081b1aea7447eae6f04118df34

diff --git a/Mate/ClassPool.hs b/Mate/ClassPool.hs
index 0f235c0..baf49a3 100644
--- a/Mate/ClassPool.hs
+++ b/Mate/ClassPool.hs
@@ -278,7 +278,7 @@ loadAndInitClass path = do
       entry <- compileBB rawmethod mi
       addMethodRef entry mi [path]
       printfCp $ printf "executing static initializer from %s now\n" (toString path)
-      executeFuncPtr entry
+      executeFuncPtr $ fst entry
       printfCp $ printf "static initializer from %s done\n" (toString path)
     Nothing -> return ()