diff --git a/src/util/TransService.cpp b/src/util/TransService.cpp
index 4b93cfbe693b185cfd9b75f9ee20a3019b012b9d..a07b4bcc9afc11c81196e099f4e8ad2763b31806 100644
--- a/src/util/TransService.cpp
+++ b/src/util/TransService.cpp
@@ -382,6 +382,8 @@ void XMLTransService::initTransService()
     gMappings->put(new ENameMapFor<XMLEBCDICTranscoder>(XMLUni::fgIBM037EncodingString3));
     gMappings->put(new ENameMapFor<XMLEBCDICTranscoder>(XMLUni::fgIBM037EncodingString4));
     gMappings->put(new ENameMapFor<XMLEBCDICTranscoder>(XMLUni::fgIBM037EncodingString5));
+    gMappings->put(new ENameMapFor<XMLEBCDICTranscoder>(XMLUni::fgIBM037EncodingString6));
+
 
     //
     //  Add in our mappings for the EBCDIC-US with Euro update, i.e. IBM1140
diff --git a/src/util/XMLUni.cpp b/src/util/XMLUni.cpp
index da44968946451677045a1dc6960bf19aa6d84a79..f10a1173faa8f80b44b9e0f7cc8f942185e8db0e 100644
--- a/src/util/XMLUni.cpp
+++ b/src/util/XMLUni.cpp
@@ -56,6 +56,9 @@
 
 /**
  * $Log$
+ * Revision 1.10  2000/02/18 22:03:31  roddey
+ * One more tweak for EBCDIC encoding aliases.
+ *
  * Revision 1.9  2000/02/18 19:55:04  roddey
  * Added Windows-1252 as an intrinsic encoding.
  *
@@ -201,9 +204,10 @@ const XMLCh XMLUni::fgGlobalNSURIName[] =
     ,   chLatin_N, chLatin_S, chNull
 };
 
+
 const XMLCh XMLUni::fgIBM037EncodingString[] =
 {
-    chLatin_E, chLatin_B, chLatin_C, chLatin_D, chLatin_I, chLatin_C, chDash, chLatin_U, chLatin_S, chNull
+    chLatin_E, chLatin_B, chLatin_C, chLatin_D, chLatin_I, chLatin_C, chDash, chLatin_C, chLatin_P, chDash, chLatin_U, chLatin_S, chNull
 };
 
 const XMLCh XMLUni::fgIBM037EncodingString2[] =
@@ -223,7 +227,13 @@ const XMLCh XMLUni::fgIBM037EncodingString4[] =
 
 const XMLCh XMLUni::fgIBM037EncodingString5[] =
 {
-    chLatin_E, chLatin_B, chLatin_C, chLatin_D, chLatin_I, chLatin_C, chDash, chLatin_C, chLatin_P, chDash, chLatin_U, chLatin_S, chNull
+    chLatin_C, chLatin_P, chDigit_0, chDigit_3, chDigit_7, chNull
+};
+
+const XMLCh XMLUni::fgIBM037EncodingString6[] =
+{
+        chLatin_C, chLatin_S, chLatin_I, chLatin_B, chLatin_M, chDigit_0
+    ,   chDigit_3, chDigit_7, chNull
 };
 
 const XMLCh XMLUni::fgIBM1140EncodingString[] =
diff --git a/src/util/XMLUni.hpp b/src/util/XMLUni.hpp
index 4a86aa0339688700f8a367ed2398a0c09021fd7e..9012f62b0643158bdb1214087cf4eebd77dbe9ba 100644
--- a/src/util/XMLUni.hpp
+++ b/src/util/XMLUni.hpp
@@ -56,6 +56,9 @@
 
 /**
  * $Log$
+ * Revision 1.10  2000/02/18 22:03:31  roddey
+ * One more tweak for EBCDIC encoding aliases.
+ *
  * Revision 1.9  2000/02/18 19:55:04  roddey
  * Added Windows-1252 as an intrinsic encoding.
  *
@@ -249,6 +252,7 @@ public :
     static const XMLCh fgIBM037EncodingString3[];
     static const XMLCh fgIBM037EncodingString4[];
     static const XMLCh fgIBM037EncodingString5[];
+    static const XMLCh fgIBM037EncodingString6[];
     static const XMLCh fgIBM1140EncodingString[];
     static const XMLCh fgIBM1140EncodingString2[];
     static const XMLCh fgIESString[];