diff --git a/wipforth.wat b/wipforth.wat
index 8191fc9..ebfd6cc 100644
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -96,7 +96,7 @@
 
        call $next)
 
- (func $doconst
+ (func $doval
        global.get $cfa
        i32.const 4
        i32.add
@@ -720,7 +720,7 @@
  ;; dictionary entries so that the definition of the index isn't too
  ;; far from its use.
  ;;
- ;; The exceptions are the special inner interpreters, DOCOL, DOCONST
+ ;; The exceptions are the special inner interpreters, DOCOL, DOVAL
  ;; and DOVAR, which I've put here in indices 0, 1 and 2 for
  ;; convenience.
 
@@ -728,7 +728,7 @@
  (table $codewords 100 funcref)
 
  (elem (i32.const 0x00) $docol)
- (elem (i32.const 0x01) $doconst)
+ (elem (i32.const 0x01) $doval)
  (elem (i32.const 0x02) $dovar)
 
  ;; Dictionary time D:
@@ -1053,7 +1053,7 @@
        "\070BRANCH"
        "\37\00\00\00")
 
- ;; Built-in constants and variables
+ ;; Built-in values and variables
 
  (data (i32.const 0x04b8)
        "\a8\04\00\00"
@@ -1063,7 +1063,7 @@
 
  (data (i32.const 0x04cc)
        "\b8\04\00\00"
-       "\07DOCONST"
+       "\05DOVAL\00\00"
        "\01\00\00\00"
        "\01\00\00\00")