diff --git a/xvaga/xvaga.cpp b/xvaga/xvaga.cpp
index 8a76e74d6..729fadbb4 100755
--- a/xvaga/xvaga.cpp
+++ b/xvaga/xvaga.cpp
@@ -3742,6 +3742,17 @@ int xvt_sys_get_profile_string(const char* file, const char* paragraph, const ch
   return len;
 }
 
+long xvt_sys_get_profile_int(const char* file, const char* paragraph, const char* name, long defval)
+{
+  char defstr[16] = "", str[16] = "";
+  long value = defval;
+  if (defval != 0)
+    sprintf(defstr, "%ld", defval);
+  if (xvt_sys_get_profile_string(file, paragraph, name, defstr, str, sizeof(str)))
+    value = atol(str);
+  return value;
+}
+
 BOOLEAN xvt_sys_set_profile_string(const char* file, const char* paragraph, const char* name,
                                    const char* value)
 {
diff --git a/xvaga/xvt.h b/xvaga/xvt.h
index a4562b54c..525781f63 100755
--- a/xvaga/xvt.h
+++ b/xvaga/xvt.h
@@ -376,6 +376,7 @@ XVTDLL BOOLEAN  xvt_sys_find_editor(const char* file, char* editor);
 XVTDLL BOOLEAN  xvt_sys_get_env(const char* varname, char* value, int max_size);
 XVTDLL int      xvt_sys_get_profile_string(const char* file, const char* paragraph, const char* name,
                                    const char* defval,  char* value, int maxsize);
+XVTDLL long     xvt_sys_get_profile_int(const char* file, const char* paragraph, const char* name, long defval);
 XVTDLL BOOLEAN  xvt_sys_set_profile_string(const char* file, const char* paragraph, const char* name,
                                    const char* value);
 XVTDLL int           xvt_sys_get_session_id();