Index: apl/src/libapl.h
===================================================================
--- apl.orig/src/libapl.h
+++ apl/src/libapl.h
@@ -51,11 +51,11 @@ enum C_CellType
 };
 
 // errors codes
-enum LIBAPL_error
+typedef enum LIBAPL_error
 {
 #define err_def(c, _txt, major, minor)   LAE_ ## c = (major << 16 | minor),
 #include "Error.def"
-};
+} LIBAPL_error;
 
 #ifdef __cplusplus
 
@@ -72,7 +72,7 @@ struct Value;
 typedef struct Value * APL_value;
 
 struct Function;
-typedef struct const Function * APL_function;
+typedef const struct Function * APL_function;
 
 #endif
 
Index: apl/src/Workspace.hh
===================================================================
--- apl.orig/src/Workspace.hh
+++ apl/src/Workspace.hh
@@ -209,7 +209,7 @@ public:
    static StateIndicator * SI_top_fun();
 
    /// the topmost SI with an error, maybe require ⎕L, ⎕R, or ⎕X.
-   static StateIndicator * SI_top_error(bool quad_LRX);
+   static StateIndicator * SI_top_error(bool quad_LRX = false);
 
    /// lookup an existing name (user defined or ⎕xx, var or function).
    /// return 0 if not found.