AlgorithmIdentifier bugs

[oweals/openssl.git] / crypto / crypto-lib.com

diff --git a/crypto/crypto-lib.com b/crypto/crypto-lib.com
index 70b98f2779d706a02b20568e1dba2e4bbcc54492..0c77fd476375ae529fef50d8bb62aed65245aff2 100644 (file)
--- a/crypto/crypto-lib.com
+++ b/crypto/crypto-lib.com
@@ -1456,6 +1456,7 @@ $!
 $! Save directory information
 $!
 $ __HERE = F$PARSE(F$PARSE("A.;",F$ENVIRONMENT("PROCEDURE"))-"A.;","[]A.;") - "A.;"
+$ __HERE = F$EDIT(__HERE,"UPCASE")
 $ __TOP = __HERE - "CRYPTO]"
 $ __INCLUDE = __TOP + "INCLUDE.OPENSSL]"
 $!