diff --git a/src/mulle-bashfunctions-all-embed.sh b/src/mulle-bashfunctions-all-embed.sh
index bf4953f..9ae18ea 100644
--- a/src/mulle-bashfunctions-all-embed.sh
+++ b/src/mulle-bashfunctions-all-embed.sh
@@ -5100,6 +5100,12 @@ function r_smart_file_downcase_identifier()
 
    r_de_camel_case_identifier "$s"
    r_lowercase "${RVAL}"
+
+   case "${s}" in
+      +(_)[A-Z]*)
+         RVAL="${RVAL#_}"
+      ;;
+   esac
 }
 
 
diff --git a/src/mulle-bashfunctions-all.sh b/src/mulle-bashfunctions-all.sh
index a1c75ae..c955030 100755
--- a/src/mulle-bashfunctions-all.sh
+++ b/src/mulle-bashfunctions-all.sh
@@ -5282,6 +5282,12 @@ function r_smart_file_downcase_identifier()
 
    r_de_camel_case_identifier "$s"
    r_lowercase "${RVAL}"
+
+   case "${s}" in
+      +(_)[A-Z]*)
+         RVAL="${RVAL#_}"
+      ;;
+   esac
 }