--- a/WinWorkstation.st	Wed Oct 12 12:38:47 2016 +0200
+++ b/WinWorkstation.st	Wed Oct 12 12:52:34 2016 +0200
@@ -4937,8 +4937,8 @@
 
 static int CALLBACK
 EnumFPTypeFaceProc(
-    LOGFONTTYPE *lplf,   /* ptr to of logical-font data */
-    TEXTMETRIC  *lptm,   /* ptr to physical font data */
+    const LOGFONTTYPE *lplf,   /* ptr to of logical-font data */
+    const TEXTMETRIC  *lptm,   /* ptr to physical font data */
     DWORD dwType,              /* font type */
     LPARAM lpData              /* application supplied data */
 ) {
@@ -5202,10 +5202,10 @@
 
 static int CALLBACK
 EnumFontsProc(
-    LOGFONTTYPE *lplf,   // ptr to of logical-font data
-    TEXTMETRIC *lptm,    // ptr to physical font data
-    DWORD dwType,        // font type
-    LPARAM *lpData       // application supplied data
+    const LOGFONTTYPE *lplf,   // ptr to of logical-font data
+    const TEXTMETRIC *lptm,    // ptr to physical font data
+    DWORD dwType,              // font type
+    LPARAM lpData              // application supplied data
 ) {
 	volatile OBJ *refToList;
 	OBJ list;
@@ -5215,7 +5215,7 @@
 	DPRINTF(("EnumFontsProc\n"));
 
 	if ( lplf ) {
-	    refToList = (OBJ*) lpData;
+	    refToList = (OBJ *) lpData;
 
 	    __PROTECT__(*refToList);
 #ifdef USE_EnumFontFamiliesEx
@@ -13569,9 +13569,9 @@
     if (__isStringLike(typeFace)) {
 	if (__tmpDC) {
 #ifdef USE_EnumFontFamiliesEx
-	    EnumFontFamiliesEx(__tmpDC, __stringVal(typeFace), EnumFontsProc, (INT)&(fontList));
-#else
-	    EnumFontFamilies(__tmpDC, __stringVal(typeFace), EnumFontsProc, (INT)&(fontList));
+	    EnumFontFamiliesEx(__tmpDC, __stringVal(typeFace), EnumFontsProc, (INT)&fontList);
+#else
+	    EnumFontFamilies(__tmpDC, __stringVal(typeFace), EnumFontsProc, (INT)&fontList);
 #endif
 	}
     }