Index: src/libapl.cc
===================================================================
--- src/libapl.cc	(revision 1400)
+++ src/libapl.cc	(working copy)
@@ -456,7 +456,7 @@
              case TC_FUN0:
              case TC_FUN2:
              case TC_OPER1:
-             case TC_OPER2: return tos[0].get_function();
+             case TC_OPER2: return (APL_function)tos[0].get_function();
              default:       return 0;   // error
            }
       }
@@ -467,7 +467,7 @@
 
         switch(tos[1].get_Class())
            {
-             case TC_OPER1: *L = tos[0].get_function();   break;
+             case TC_OPER1: *L = (APL_function)tos[0].get_function();   break;
              default:       return 0;   // error
            }
 
@@ -474,7 +474,7 @@
         switch(tos[0].get_Class())
            {
              case TC_FUN12:
-             case TC_OPER1: return tos[1].get_function();
+             case TC_OPER1: return (APL_function)tos[1].get_function();
              default:       return 0;
            }
       }
@@ -486,7 +486,7 @@
         switch(tos[0].get_Class())
            {
              case TC_FUN12:
-             case TC_OPER1: *R = tos[0].get_function();   break;
+             case TC_OPER1: *R = (APL_function)tos[0].get_function();   break;
              default:       return 0;   // error
            }
 
@@ -493,13 +493,13 @@
         switch(tos[2].get_Class())
            {
              case TC_FUN12:
-             case TC_OPER1: *L = tos[0].get_function();   break;
+             case TC_OPER1: *L = (APL_function)tos[0].get_function();   break;
              default:       return 0;   // error
            }
 
         switch(tos[1].get_Class())
            {
-             case TC_OPER2: return tos[1].get_function();
+             case TC_OPER2: return (APL_function)tos[1].get_function();
              default:       return 0;
            }
       }