diff --git a/H/TermExt.h b/H/TermExt.h
index a30eae80d..ddd750e49 100644
--- a/H/TermExt.h
+++ b/H/TermExt.h
@@ -103,7 +103,7 @@ inline EXTERN blob_type BlobOfFunctor (Functor f);
 inline EXTERN blob_type
 BlobOfFunctor (Functor f)
 {
-  return (blob_type) (f);
+  return (blob_type) ((CELL)f);
 }
 
 typedef struct cp_frame {