diff --git a/src/c/boot.d b/src/c/boot.d
index 0eb97fed4..e7df5b213 100644
--- a/src/c/boot.d
+++ b/src/c/boot.d
@@ -29,6 +29,15 @@ ecl_def_ct_long_float(ecl_ct_longfloat_minus_zero,-0.0l,,const);
 ecl_def_ct_ratio(ecl_ct_plus_half,ecl_make_fixnum(1),ecl_make_fixnum(2),,const);
 ecl_def_ct_ratio(ecl_ct_minus_half,ecl_make_fixnum(-1),ecl_make_fixnum(2),,const);
 
+/* These two tags have a special meaning for the frame stack. */
+
+ecl_def_ct_base_string(ecl_ct_ptag_string,"PROTECT-TAG",11,static,const);
+ecl_def_ct_base_string(ecl_ct_dtag_string,"DUMMY-TAG",9,static,const);
+
+ecl_def_ct_token(ecl_ct_protect_tag,ecl_stp_constant,ecl_ct_ptag_string,ECL_NIL,,const);
+ecl_def_ct_token(ecl_ct_dummy_tag  ,ecl_stp_constant,ecl_ct_dtag_string,ECL_NIL,,const);
+
+
 /* -- implementation ------------------------------------------------ */
 
 #if ECL_FIXNUM_BITS <= 32
diff --git a/src/c/main.d b/src/c/main.d
index b8b075a82..c003fbbe8 100644
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -106,14 +106,6 @@ ecl_boot(void)
   return 0;
 }
 
-/* These two tags have a special meaning for the frame stack. */
-
-ecl_def_ct_base_string(ecl_ct_ptag_string,"PROTECT-TAG",11,static,const);
-ecl_def_ct_base_string(ecl_ct_dtag_string,"DUMMY-TAG",9,static,const);
-
-ecl_def_ct_token(ecl_ct_protect_tag,ecl_stp_constant,ecl_ct_ptag_string,ECL_NIL,,const);
-ecl_def_ct_token(ecl_ct_dummy_tag  ,ecl_stp_constant,ecl_ct_dtag_string,ECL_NIL,,const);
-
 /************************ GLOBAL INITIALIZATION ***********************/
 
 static int ARGC;