diff --git a/src/pl/tcl/pltcl_guide.nr b/src/pl/tcl/pltcl_guide.nr
index 87fcc71f747f5f3be793a63c15d7a3c147a94764..6fcd155a4035ecaa13866c837efee7d57a39bdc1 100644
--- a/src/pl/tcl/pltcl_guide.nr
+++ b/src/pl/tcl/pltcl_guide.nr
@@ -121,12 +121,12 @@ from the CREATE FUNCTION section of the manual would be defined in Tcl as
 .in +4
     returns bool as '
 .in +4
-    if {200000.0 < $EMP(salary)} {
+    if {200000.0 < $1(salary)} {
 .in +4
     return 't'
 .in -4
     }
-    if {$EMP(age) < 30 && 100000.0 < $EMP(salary)} {
+    if {$1(age) < 30 && 100000.0 < $1(salary)} {
 .in +4
     return 't'
 .in -4