diff --git a/bd/PenMetaBD.php b/bd/PenMetaBD.php
index 44e119e..01855eb 100644
--- a/bd/PenMetaBD.php
+++ b/bd/PenMetaBD.php
@@ -331,8 +331,9 @@ class PenMetaBD extends InfraMetaBD {
            if(count($arrSchema['pk']) > 1) {
                
                foreach($arrSchema['pk'] as $strPk) {
-           
-                    $objInfraBanco->executarSql('CREATE INDEX idx_'.$strNomeTabela.'_'.$strPk.' ON '.$strNomeTabela.'('.$strPk.')');
+                    $n = idx_'.$strNomeTabela.'_'.$strPk;
+                    $n = substr($n, 0, 30);
+                    $objInfraBanco->executarSql('CREATE INDEX $n.' ON '.$strNomeTabela.'('.$strPk.')');
                }
            }
         }
--
libgit2 0.21.2