Index: src/th_lang.c
==================================================================
--- src/th_lang.c
+++ src/th_lang.c
@@ -947,10 +947,25 @@
   return TH_OK;
 }
 
 /*
 ** TH Syntax:
+**
+**   info runtime
+*/
+static int info_runtime_command(
+  Th_Interp *interp, void *ctx, int argc, const char **argv, int *argl
+){
+  if( argc!=2 ){
+    return Th_WrongNumArgs(interp, "info runtime");
+  }
+  Th_SetResult(interp, "TH1", -1);
+  return TH_OK;
+}
+
+/*
+** TH Syntax:
 **
 **   info vars
 */
 static int info_vars_command(
   Th_Interp *interp, void *ctx, int argc, const char **argv, int *argl
@@ -1105,10 +1120,11 @@
   int *argl
 ){
   static const Th_SubCommand aSub[] = {
     { "commands", info_commands_command },
     { "exists",   info_exists_command },
+    { "runtime",  info_runtime_command },
     { "vars",     info_vars_command },
     { 0, 0 }
   };
   return Th_CallSubCommand(interp, ctx, argc, argv, argl, aSub);
 }