diff --git a/src/runtime/haskell-bind/utils.c b/src/runtime/haskell-bind/utils.c
index 5afb33b5c..91d62ea56 100644
--- a/src/runtime/haskell-bind/utils.c
+++ b/src/runtime/haskell-bind/utils.c
@@ -100,7 +100,7 @@ hspgf_predict_callback(PgfOracleCallback* self,
 	                   size_t offset)
 {
 	HSPgfOracleCallback* oracle = gu_container(self, HSPgfOracleCallback, oracle);
-	oracle->predict(cat,label,hspgf_offset2hs(oracle->sentence, offset));
+	return oracle->predict(cat,label,hspgf_offset2hs(oracle->sentence, offset));
 }
 
 static bool
@@ -110,7 +110,7 @@ hspgf_complete_callback(PgfOracleCallback* self,
 	                   size_t offset)
 {
 	HSPgfOracleCallback* oracle = gu_container(self, HSPgfOracleCallback, oracle);
-	oracle->complete(cat,label,hspgf_offset2hs(oracle->sentence, offset));
+	return oracle->complete(cat,label,hspgf_offset2hs(oracle->sentence, offset));
 }
 
 static PgfExprProb*