diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index c650c8ad..9915cf43 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -7425,7 +7425,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 ;; Initialize AFM/PS:
-(wx:set-ps-draw-text/get-text-extent
+(wx:set-ps-procs
  afm-draw-text
  afm-get-text-extent
  afm-expand-name
diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss
index 7eccd07f..e0d50a9e 100644
--- a/collects/mred/private/kernel.ss
+++ b/collects/mred/private/kernel.ss
@@ -1482,7 +1482,7 @@
     file-creator-and-type
     set-snip-class-getter
     set-editor-data-class-getter
-    set-ps-draw-text/get-text-extent
+    set-ps-procs
     main-eventspace?
     eventspace-handler-thread)