diff --git a/Mac/Modules/ctl/Ctlmodule.c b/Mac/Modules/ctl/Ctlmodule.c
index 991b567..3cdf377 100644
--- a/Mac/Modules/ctl/Ctlmodule.c
+++ b/Mac/Modules/ctl/Ctlmodule.c
@@ -1981,13 +1981,13 @@
 	char keybuf[9];
 	
 	if ( which == kControlUserPaneDrawProcTag )
-		*uppp = mydrawproc_upp;
+		*uppp = (UniversalProcPtr)mydrawproc_upp;
 	else if ( which == kControlUserPaneIdleProcTag )
-		*uppp = myidleproc_upp;
+		*uppp = (UniversalProcPtr)myidleproc_upp;
 	else if ( which == kControlUserPaneHitTestProcTag )
-		*uppp = myhittestproc_upp;
+		*uppp = (UniversalProcPtr)myhittestproc_upp;
 	else if ( which == kControlUserPaneTrackingProcTag )
-		*uppp = mytrackingproc_upp;
+		*uppp = (UniversalProcPtr)mytrackingproc_upp;
 	else
 		return -1;
 	/* Only now do we test for clearing of the callback: */
@@ -2098,7 +2098,7 @@
 
 	mytracker_upp = NewControlActionProc(mytracker);
 	mydrawproc_upp = NewControlUserPaneDrawProc(mydrawproc);
-	myidleproc_upp = NewControlUserPaneDrawProc(myidleproc);
+	myidleproc_upp = NewControlUserPaneIdleProc(myidleproc);
 	myhittestproc_upp = NewControlUserPaneHitTestProc(myhittestproc);
 	mytrackingproc_upp = NewControlUserPaneTrackingProc(mytrackingproc);
 
diff --git a/Mac/Modules/ctl/ctlsupport.py b/Mac/Modules/ctl/ctlsupport.py
index 0df5d2b..f2d4be1 100644
--- a/Mac/Modules/ctl/ctlsupport.py
+++ b/Mac/Modules/ctl/ctlsupport.py
@@ -174,13 +174,13 @@
 	char keybuf[9];
 	
 	if ( which == kControlUserPaneDrawProcTag )
-		*uppp = mydrawproc_upp;
+		*uppp = (UniversalProcPtr)mydrawproc_upp;
 	else if ( which == kControlUserPaneIdleProcTag )
-		*uppp = myidleproc_upp;
+		*uppp = (UniversalProcPtr)myidleproc_upp;
 	else if ( which == kControlUserPaneHitTestProcTag )
-		*uppp = myhittestproc_upp;
+		*uppp = (UniversalProcPtr)myhittestproc_upp;
 	else if ( which == kControlUserPaneTrackingProcTag )
-		*uppp = mytrackingproc_upp;
+		*uppp = (UniversalProcPtr)mytrackingproc_upp;
 	else
 		return -1;
 	/* Only now do we test for clearing of the callback: */
@@ -285,7 +285,7 @@
 initstuff = initstuff + """
 mytracker_upp = NewControlActionProc(mytracker);
 mydrawproc_upp = NewControlUserPaneDrawProc(mydrawproc);
-myidleproc_upp = NewControlUserPaneDrawProc(myidleproc);
+myidleproc_upp = NewControlUserPaneIdleProc(myidleproc);
 myhittestproc_upp = NewControlUserPaneHitTestProc(myhittestproc);
 mytrackingproc_upp = NewControlUserPaneTrackingProc(mytrackingproc);
 """